home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 04 - 1988 / 04.09 Sep 88 / 4d stuff / Source Files / TestProg.p < prev   
Encoding:
Text File  |  1988-06-22  |  537 b   |  38 lines  |  [TEXT/MPS ]
  1. Program TestProg;
  2.  
  3. Uses Memtypes, QuickDraw, OSIntf;
  4.  
  5. procedure HaveGlobals; FORWARD;
  6. {so Caller knows about the procedure}
  7.  
  8. procedure Caller;
  9. begin
  10.     HaveGlobals;
  11. end;
  12.  
  13. procedure HaveGlobals;
  14. var
  15.     Global1:Integer;
  16.     Global2:str255;
  17.  
  18.         procedure First;
  19.         begin
  20.             Global1:=Length(Global2);
  21.         end; {First}
  22.  
  23.         procedure Second;
  24.         var Count:Integer;
  25.         begin
  26.             For Count:=1 to Global1 do Sysbeep(2);
  27.         end; {Second}
  28.  
  29. begin    {HaveGlobals}
  30.     Global2:='Hello there';
  31.     First;
  32.     Second;
  33. end; {HaveGlobals}
  34.  
  35. Begin    {Main Block}
  36.     Caller;
  37. End. {program}
  38.